layar=savescreen(0,0,24,79)
SELE 5
count to cnt
declare norec[cnt]
declare fild[cnt]
go top
cr=0
do while .not. eof()
  cr=cr+1
  norec[cr]=recno()
  FILD[CR]=SUPP_CODE+' '+CHR(179)+SUPP_NAME+' '+CHR(179)+SUBS(SUPP_ADD1,1,24)+' '+CHR(179)+SUPP_TEL1
  skip
enddo
CLEAR
DO ADDRESSC
@  6,  5  SAY "CHOICE SUPPLIER"
@ 10,  2  SAY "CODE  NAME                      ADDRESS                    TELEPHONE"
@ 23,  2  SAY "PREVIOUS SCREEN ->> Pg Up     NEXT SCREEN ->> Pg Dn     PREVIOUS MENU ->> Esc"
@  5,  3  TO  7, 21    DOUBLE
@ 11,  1  TO 11, 78
@ 10,  7  TO 21,  7
@ 10, 33  TO 21, 33
@ 10, 59  TO 21, 59
@ 22,  0  TO 24, 28
@ 22, 30  TO 24, 54
@ 22, 56  TO 24, 79
@  0,  0  TO 22, 79    DOUBLE
DO WHILE .T.
   inkey()
   cari=achoice(12,2,21,78,fild)
   mix=lastkey()
   DO CASE
      CASE MIX=13
         OKK=.T.
         NOR=NOREC[CARI]
         GOTO NOR
         IF REC_LOCK(0)
            REPL ORDR_N_Y_P WITH .T.
            REPL AEA_COMP WITH FREEP
         ENDIF
         UNLOCK
         SUPPCOD=SUPP_CODE
         SUPPNAM=SUPP_NAME
         restscreen(0,0,24,79,layar)
         RETURN
      CASE MIX=27
         OKK=.F.
         restscreen(0,0,24,79,layar)
         RETURN
      OTHER
         LOOP
   ENDCASE
ENDDO
restscreen(0,0,24,79,layar)
RETURN


